home *** CD-ROM | disk | FTP | other *** search
- # -----------------------------------------------------------
- # Allgemeine Manoever fuer Vehicle:
- # einfacher Zielanflug
- #
- # ⌐ radon labs gmbh
- #
- # 08-Aug-00 af created
- # ------------------------------------------------------------
-
- # eine Root fuer Anflugmanoever
- new nroot airplane/formation
- sel airplane/formation
-
- # einfaches Anfliegen
- new ncommandlist goto
- goto.setadjusttype reach
- goto.settestcommand afgoto_test
- goto.addcommand true 0 0 -500 false 0 0 0 nothing 1.0
-
- proc afgoto_test {} {
-
- return 1.0
- }
-
- sel ..
- sel ..
-
-